set scheme plotplain
* Colombia
use "google_trend.dta", replace 
keep if country=="Colombia"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(3)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date", size(3.0)) ///
title("Google Trend Data in Colombia", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) graphregion(margin(r+5))scheme(538bw)
graph export gtrend_jb+weather_CO.png, replace	

* Argentina
use "google_trend.dta", replace 
keep if country=="Argentina"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Argentina", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(AR, replace)

* Bolivia
use "google_trend.dta", replace 
keep if country=="Argentina"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Bolivia", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(BO, replace)

* Uruguay
use "google_trend.dta", replace 
keep if country=="Uruguay"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Uruguay", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(UY, replace)

* Venezuela
use "google_trend.dta", replace 
keep if country=="Venezuela"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Venezuela", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(VE, replace)


* Paraguay
use "google_trend.dta", replace 
keep if country=="Paraguay"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Paraguay", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(PY, replace)

* Peru
use "google_trend.dta", replace 
keep if country=="Peru"
tsset date

graph twoway tsline jairbolsonaro weather, ///
lcolor("156 78 151" "255 87 51") lpattern("l" "-") ylabel(0(20)100, nogrid labsize(2)) ///
tline(07oct2018 27oct2018, lcolor(black) lpattern("shortdash")) ///
tline(07nov2018, lcolor(white) lpattern("l")) ///
tlabel(27sep2018 07oct2018 27oct2018 07nov2018 ,  labsize(2)) ///
text(85 21459.5 "1st Round" 85 21479.5 "2nd Round", place(e) size(.3cm)) ///
ytitle("Count (Normalized to a 0-100 range)") xtitle("Date") ///
title("Peru", size(4.0)) ///
legend(on pos(6) row(1) lab(1 "Jair Bolsonaro") lab(2 "Weather") region(lstyle(l))) scheme(538bw) saving(PE, replace)

 grc1leg AR.gph BO.gph PY.gph PE.gph UY.gph VE.gph, title("Google Trend Data")
 graph export gtrend_jb+weather_other.png, replace	